home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / g / gnu_c / gpfsrc09.zoo / test2.s < prev    next >
Encoding:
Text File  |  1991-07-15  |  1.7 KB  |  143 lines
  1. #NO_APP
  2. gcc_compiled.:
  3. .text
  4.     .even
  5. .globl _call_bar_function_recr
  6. _call_bar_function_recr:
  7.     link a6,#0
  8.     tstl LPBX0
  9.     bne LPI0
  10.     pea LPBX0
  11.     jsr ___bb_init_func
  12.     addql #4,sp
  13. LPI0:
  14.     unlk a6
  15.     rts
  16.     .even
  17. .globl _foo
  18. _foo:
  19.     link a6,#0
  20.     tstl LPBX0
  21.     bne LPI1
  22.     pea LPBX0
  23.     jsr ___bb_init_func
  24.     addql #4,sp
  25. LPI1:
  26. LPB0:
  27.     addql #1,LPBX2+0
  28.     movel a6@(8),sp@-
  29.     jbsr _call_bar_function_recr
  30.     unlk a6
  31.     rts
  32.     .even
  33. .globl _factorial_function
  34. _factorial_function:
  35.     link a6,#0
  36.     movel a2,sp@-
  37.     tstl LPBX0
  38.     bne LPI2
  39.     pea LPBX0
  40.     jsr ___bb_init_func
  41.     addql #4,sp
  42. LPI2:
  43. LPB1:
  44.     addql #1,LPBX2+4
  45.     movel a6@(8),a2
  46.     moveq #1,d1
  47.     cmpl a2,d1
  48.     jlt L4
  49. LPB2:
  50.     addql #1,LPBX2+8
  51.     moveq #1,d0
  52.     jra L3
  53. L4:
  54. LPB3:
  55.     addql #1,LPBX2+12
  56.     pea a2@(-1)
  57.     jbsr _factorial_function
  58.     movel d0,sp@-
  59.     movel a2,sp@-
  60.     jbsr ___mulsi3
  61. L3:
  62.     movel a6@(-4),a2
  63.     unlk a6
  64.     rts
  65.     .even
  66. .globl _main
  67. _main:
  68.     link a6,#-4
  69.     movel d2,sp@-
  70.     tstl LPBX0
  71.     bne LPI3
  72.     pea LPBX0
  73.     jsr ___bb_init_func
  74.     addql #4,sp
  75. LPI3:
  76. LPB4:
  77.     addql #1,LPBX2+16
  78.     clrl a6@(-4)
  79.     cmpl #499,a6@(-4)
  80.     jgt L16
  81. L10:
  82. LPB5:
  83.     addql #1,LPBX2+20
  84.     pea 10:w
  85.     jbsr _factorial_function
  86.     addqw #4,sp
  87.     addql #1,a6@(-4)
  88.     cmpl #499,a6@(-4)
  89.     jle L10
  90. L16:
  91. LPB6:
  92.     addql #1,LPBX2+24
  93.     clrl a6@(-4)
  94.     cmpl #999,a6@(-4)
  95.     jgt L15
  96. LPB7:
  97.     addql #1,LPBX2+28
  98.     movel a6,d2
  99.     subql #4,d2
  100. L14:
  101. LPB8:
  102.     addql #1,LPBX2+32
  103.     movel d2,sp@-
  104.     jbsr _foo
  105.     addqw #4,sp
  106.     addql #1,a6@(-4)
  107.     cmpl #999,a6@(-4)
  108.     jle L14
  109. L15:
  110. LPB9:
  111.     addql #1,LPBX2+36
  112.     moveq #0,d0
  113.     movel a6@(-8),d2
  114.     unlk a6
  115.     rts
  116. .data
  117.     .even
  118. LPBX0:
  119.     .long 0
  120.     .long LPBX1
  121.     .long LPBX2
  122.     .long 10
  123.     .long 0
  124.     .long LPBX3
  125. LPBX1:
  126.     .ascii "test2.d\0"
  127.     .even
  128. LPBX2:
  129.     .skip 40
  130. .text
  131. LPBX3:
  132.     .long LPB0
  133.     .long LPB1
  134.     .long LPB2
  135.     .long LPB3
  136.     .long LPB4
  137.     .long LPB5
  138.     .long LPB6
  139.     .long LPB7
  140.     .long LPB8
  141.     .long LPB9
  142.     .long LPBX3
  143.